home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Win FX.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.8 KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Interface\Effects"
  5. "NAME"="Windows FX Options #1"
  6. "VERSION"="2.43"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Window animation (taskbar zoom)"
  9. "TEXT 2"="Drag full windows"
  10. "TEXT 3"="Smooth scrolling"
  11. "TEXT 4"="Font smoothing"
  12. "DESCRIPTION 1"="Option #1: If this option is enabled, the movement of the window will be animated when you maximize, minimize or restore it."
  13. "DESCRIPTION 2"="Option #2: When you move a window across the screen, instead of showing an outline of the window the full conents of the window move too if this option is enabled."
  14. "DESCRIPTION 3"="Option #3: If this is enabled, then items with scrollbars will move in a smooth fashion, instead of jerking."
  15. "DESCRIPTION 4"="Option #4: When enabled, the edges of large TrueType fints become anti-aliased. This means that there are no jagged edges to them."
  16. "DESCRIPTION 5"="Note: Not all of these options will work on your computer, and they may make your system much slower."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Thanks to Steve Day [steve@steveday.net] for the "font smoothing on NT" bug notice!"
  21.  
  22. Sub Plugin_Initialize 
  23.  'String
  24.  i=RegReadValue("HKCU\Control Panel\desktop\WindowMetrics\MinAnimate")
  25.  if i=1 then SetUIElement 1,true
  26.  
  27.  'String
  28.  i=RegReadValue("HKCU\Control Panel\desktop\DragFullWindows")
  29.  if i=1 then SetUIElement 2,true
  30.  
  31.  'Binary!!
  32.  i=RegReadValue("HKCU\Control Panel\desktop\SmoothScroll") 
  33.  'DebugMsg "[" & i & "]"
  34.  if i="01000000" or i=1 then SetUIElement 3,true
  35.  
  36.  'String
  37.  i=RegReadValue("HKCU\Control Panel\desktop\FontSmoothing")
  38.  if i=1 or i=2 then SetUIElement 4,true
  39. End Sub
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  b=GetUIElement(1)
  43.  if b=true then
  44.   Call RegWriteValue("HKCU\Control Panel\desktop\WindowMetrics\MinAnimate",1,1)
  45.  else
  46.   Call RegWriteValue("HKCU\Control Panel\desktop\WindowMetrics\MinAnimate",0,1)
  47.  end if
  48.  
  49.  b=GetUIElement(2)
  50.  if b=true then
  51.   Call RegWriteValue("HKCU\Control Panel\desktop\DragFullWindows",1,1)
  52.  else
  53.   Call RegWriteValue("HKCU\Control Panel\desktop\DragFullWindows",0,1)
  54.  end if
  55.  
  56.  b=GetUIElement(3)
  57.  if b=true then
  58.   Call RegWriteValue("HKCU\Control Panel\desktop\SmoothScroll","01000000",3)
  59.   'debugmsg "TRUE"
  60.  else
  61.   Call RegWriteValue("HKCU\Control Panel\desktop\SmoothScroll","00000000",3)
  62.   'debugmsg "FALSE"
  63.  end if
  64.  
  65.  b=GetUIElement(4)
  66.  if b=true then
  67.     if GetWinVer=2 then 'NT
  68.        vVal=2
  69.     else
  70.        vVal=1
  71.     end if
  72.  else
  73.     vVal=0
  74.  end if
  75.  Call RegWriteValue("HKCU\Control Panel\desktop\FontSmoothing",vVal,1)
  76.  Call IniWriteValue("WIN.INI","TrueType","FontSmoothing",vVal)
  77.     
  78.  Call Restart()
  79. End Sub
  80.  
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.  
  85.  
  86.  
  87.